(byte-optimize-set): Avoid CLism.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7aa34cff6bcdf9ec487a7c56a7f40e32f1c27a35..c02e8b02dea904356fa7202b114099998c5746d9 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1174,7 +1174,7 @@
   (let ((var (car-safe (cdr-safe form))))
     (cond
      ((and (eq (car-safe var) 'quote) (consp (cdr var)))
-      (list* 'setq (cadr var) (cddr form)))
+      `(setq ,(cadr var) ,@(cddr form)))
      ((and (eq (car-safe var) 'make-local-variable)
           (eq (car-safe (setq var (car-safe (cdr var)))) 'quote)
           (consp (cdr var)))